#!/usr/bin/perl

use strict;
use CGI;
use YAML::Syck;
require 'config.pl';

my $cgi = new CGI;

print "Content-type: text/html\n\n";


if ($cgi->param()) {
        # das Formular wurde abgeschickt, ich kann die Daten verarbeiten und ein Ergebnis anzeigen

        my $rls_data = {};
        my $rls_name = '';

        unless($cgi->param('release_name')) {
            print "No Releasename comitted. Exiting.\n";
            exit 0;
        }

        $rls_name = $cgi->param('release_name');
        
        if(-e $::rsspreader_yaml_rls_nfo_dir ."/". $rls_name .".yaml" && !(-z $::rsspreader_yaml_rls_nfo_dir ."/". $rls_name .".yaml"))
        {
            $rls_data = YAML::Syck::LoadFile($::rsspreader_yaml_rls_nfo_dir ."/". $rls_name .".yaml");
        }
        else
        {
            print "There is no such RLS. Exiting.";
            exit 0;
        }

        print YAML::Syck::Dump($rls_data);

        exit 1;
}
else {
       # es wurde noch nicht abgeschickt, also muss ich es anzeigen
       print "Required POST-Variables are missing. Exiting.\n";
       exit 0;
}